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I.  INTRODUCTION  TO  THE  PROBLEM 


The  Ballistic  Research  Laboratory  has  developed,  from  a  research 
and  development  viewpoint,  a  combat  capability  evaluation  methodology. 
Called  RCC  (Residual  Combat  Capabi 1 ity)* 2 *  4 > 2 ,  the  methodology  is  based 
upon  a  rigorous  quantification  of  combat  capability.  In  developing  RCC, 
particular  attention  was  paid  to  vulnerability/lethality  modeling  and 
associated  threat  effectiveness  factors.  However,  attention  was  also 
paid  to  the  unit  structure.  Individual  capabilities,  time  dependent 
substitutability,  and  alternate  operating  procedures  were  included  in 
detail,  largely  with  the  help  of  the  cognizant  Training  and  Doctrine 
Command  (TRADOC)  agencies.  Furthermore,  a  great  deal  of  effort  was 
spent  in  making  the  RCC  code  easy  to  use.  To  this  end,  inputs  use  English 
words  and  names,  free  field  formats,  and  copious  checks  and  informative 
diagnostics.  As  a  result,  RCC  is  receiving  widespread  attention  through¬ 
out  the  Army  as  a  general  standard  analysis  tool. 

The  nuclear  lethality  module  used  in  RCC  was  taken  from  NUDACC"5, 
a  nuclear  damage  assessment  code  produced  by  the  Harry  Diamond  Laboratory. 
In  NUDACC,  equipment  items  in  the  vicinity  of  a  nuclear  detonation  may 
become  casualties  (kills)  due  to  exposure  to  EMP,  neutron  fluence,  and 
blast  environments.  Any  combination  of  these  environments  may  be  con¬ 
sidered  for  any  given  target.  (Note:  Personnel  are  handled  separately, 
and  are  not  addressed  in  this  report.)  The  kill  probabilities  for  each 
item  are  expressed  as  cumulative  distribution  functions  of  the  appropriate 
environmental  parameters.  This  information  is  input  to  the  nuclear 
module  in  terms  of  the  means  and  standard  deviations  (p  and  o)  of  the 
cumulative  distributions,  along  with  certain  other  constants  for  par¬ 
ticular  environments.  The  data  also  includes  a  code  number,  IVLARY, 
which  indicates  the  combination  of  environments  to  be  considered. 

In  constructing  the  original  NUDACC  methodology,  it  was  anticipated 
that  the  vulnerability  set  would  be  fairly  stable4.  It  was,  therefore, 
most  efficient  to  make  the  data  part  of  the  NUDACC  code  itself,  storing 


J.  Terrence  Klopcic,  et  al,  "RCC:  A  Methodology /Code  to  Model  Residual 
Combat  Capability  at  the  Unit  Level ",  ARBRL-TR-02156  (Apr  79)  (AD  //B03745 1  L I 

2 

J.  Terrence  Klopcic,  et  al,  "RCC:  A  Methodology /Code  to  Model  Residual 
Combat  Capability  at  the  Unit  Level",  ARBRL-TR-02196 ,  Addendum  to  ARBRL- 
TR-02156  (Sep  79)  (AD  #B042085L) 

2 

R.G.  Moore ,  "Nuclear  Damage  Assessment  Computer  Code",  HDL-R-210-78-4 
(July  78) 

4 

R.G.  Moore,  Harry  Diamond  Laboratory,  private  communication. 
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it  in  DATA  statements.  Each  item  was  given  an  item  number,  which  was 
used  to  obtain  indices  into  the  densely-filled  data  arrays.  A  published 
list  of  item  numbers  versus  item  name  (e.g.  101,  JEEP  M151)  completed 
the  interface  between  user  and  code.  The  current  list  of  NUDACC  items 
is  given  in  Appendix  A. 

However,  the  data  set*  has  proven  to  be  dynamic,  requiring  periodic 
updates  and  extensions.  In  particular,  RCC  is  often  used  to  test  the 
sensitivity  of  results  to  possible  uncertainties  in  the  data,  requiring 
several  data  changes  to  be  made.  Such  changes,  in  the  original  configu¬ 
ration,  would  require  recompilation  of  the  entire  program.  This  re¬ 
compilation  not  only  requires  extra  computer  time,  but  also  demands  that 
the  user  have  in-depth  knowledge  of  the  inner  details  of  the  nuclear 
module.  Such  effort  is  in  contrast  to  the  highly  user-oriented  nature  of 
RCC,  in  which  all  inputs  are  made  at  run-time  using  English  words, 
free  formats,  and  Mcook-bookM  prescriptions. 

On  the  other  hand,  the  nuisance  and  error-prone  nature  of  handling 
many  floating-point  numbers  is  also  appreciated.  (Note  that  the  original 
formulation  used  in  the  NUDACC  code,  avoided  this  problem.) 


II.  SOLUTION 


The  solution  created  for  RCC  is  to  maintain  an  off-line  data  base 
compatible  with  NUDACC  and  prescribe  a  standard  English-worded,  free 
field  format  for  RCC  input.  These  are  facilitated  by  a  utility  program 
which  supports  easy  updating  of  the  data  base  and  transfers  data,  in 
RCC  format,  to  a  file  for  RCC  input. 

1.  Data  Base  Format 


The  format  chosen  for  the  data  base  is  a  large,  2-dimensional 
array,  with  rows  for  every  potential  item  number  (1000) ,  and  columns 
for  more  than  the  required  number  of  data  (20) .  These  extra  storage 
words  allow  for  future  additions  to  the  data  base,  in  terms  of  new  items, 
additional  kill  environments  for  old  items,  or  entirely  new  kill  environ¬ 
ments  (e.g.  thermal  kills)  for  the  entire  array.  For  ease  in  indexing 
the  array,  storage  words  are  allocated  whether  currently  used  or  not; 
however,  binary  storage  of  the  array  results  in  small  file  size. 

2.  RCC  Format 


The  input  of  nuclear  vulnerability  data  to  RCC  was  reconfigured  to 
read  an  external  file,  unit  3.  Nuclear  input  thus  becomes  parallel  to 
the  RCC  input  form  for  conventional  lethality  data  (on  unit  2) .  The 
external  file  approach  has  proven  most  convenient  and  efficient.  Many 
runstreams  may  access  the  same  data  file,  thus  eliminating  much  dupli¬ 
cation  of  input  effort.  Furthermore,  the  format  of  the  data  and  the 
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highly  interpretive  nature  of  the  RCC  input  routines  makes  editing  of 
the  file,  using  locally  available  processors,  a  very  easy  matter. 

The  format  for  file  3  is: 

ENGLISH  NAME,  IVLARY,  required  data 

where  ENGLISH  NAME  is  the  user-chosen,  run-time  specified  English  name 
for  the  item  (or  item  class),  IVLARY  is  the  code  number  which  indicates 
the  environments  considered  for  the  item,  and  the  data  are  the  corres¬ 
ponding  constants,  ys,  and  os. 

Appendix  B  contains  a  print-out  of  the  instruction  element  included 
in  the  RCC  package.  This  element,  INPUTINFO,  contains  a  detailed  descrip¬ 
tion  of  the  format  for  data  on  file  3,  as  well  as  a  description  of  all 
other  input  commands . 

3.  Supporting  Code,  4T03 

The  supporting  code,  called  4T03,  is  an  interactive  program.  Upon 
execution,  the  code  asks  for  the  required  action:  update  the  data  base 
(on  unit  4),  list  the  data  (on  unit  4),  or  write  selected  data,  in  the 

RCC  format  (described  in  Appendix  B) ,  onto  file  3.  As  a  special  feature, 

typing  a  dollar  sign  ($)  causes  the  last  line  written  by  the  code  (whether 
on  unit  3  or  unit  4)  to  be  reproduced  at  the  user  terminal.  Typing  $ 
item  numbers  causes  the  data  for  the  identified  items  to  be  listed  at 
the  terminal.  A  complete  listing  of  4T03  is  contained  in  Appendix  C. 

4.  Input  to  4T03 

a.  For  Updating  Data  Base.  The  4T03  code,  when  put  in  the  data 

base  input  mode  (IN),  will  ask  whether  the  data  base  (on  file  4)  is  a 

new  one  being  created,  or  an  old  one  being  changed.  It  then  solicits 
data  in  the  following  format: 

NUDACC  Item  Number,  IVLARY,  required  data 

where  the  NUDACC  item  number  is  discussed  in  section  I,  and  the  remaining 
data  is  described  in  section  II. 2.  Typing  END  closes  file  4  and  returns 
the  program  to  the  4T03  executive. 

b.  For  Making  an  RCC  Input  File  (file  3).  The  4T03  code,  when 

put  in  the  RCC  file  output  mode  (OUT) ,  will  solicit  data  in  the  following 
format : 


ENGLISH  NAME,  NUDACC  Item  Number 

where  ENGLISH  NAME  is  described  in  section  II. 2,  and  NUDACC  Item  Number 
is  discussed  in  section  I.  Typing  END  writes  the  word  "END"  on  file  3 
(as  preferred  by  RCC),  closes  the  file,  and  returns  control  to  the 
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4T03  executive. 


III.  SUMMARY 


The  difficulty  of  handling  strings  of  relatively  unintelligible 
floating  point  numbers,  as  required  for  nuclear  vulnerability  calculations, 
has  been  largely  alleviated.  User-oriented,  English-word -based  input 
formats  have  been  established  for  use  in  RCC,  in  consonance  with  all 
other  RCC  inputs.  An  interactive  program  to  interface  the  NUDACC- 
compatible  nuclear  vulnerability  data  base  with  the  RCC  input  files  has 
been  developed. 
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001 

002 
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005 
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105 

106 

107 
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109 

110 

111 

112 
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114 

lib 
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117 

116 

119 

120 

201 
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203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

299 

301 

302 

303 

304 

305 


nudacc  vulnerability  data 


DOSE  BLAST  TREE  EMP 


PERSONNEL  -  EXpOStD  * 

PERSONNEL  -  OPEN  VEHICLE  * 

PERSONNEL  -  FOX  HOLE  * 

PERSONNEL  -  APC  * 

PERSONNEL  -  TAnK  * 

TRUCK  UTILITY  1/4-TON  Ml5l  * 

TRUCK  CARGO  5/4-TON  M715 

TRUCK  CARGO  5/4-TOn  M715  W/S250  SHELTER  * 

TRUCK  CARGO  1  1/4-TON  GAMA  GOAT  m561  W/TrAiLER 

TRUCK  CARGO  2  1/2-TON  M35  * 

TRUCK  VAN  SHOP  2  1/2-TON  W/S280  SHELTER  * 

TRUCK  TANK  FUEL  SERVICING  2  1/2-TON 
TRUCK  VAN  EXPANSIBLE  2  1/2-JON  M?92 

TRUCK  VAN  EXPANSIBLE  5-TON  M820  * 

TRUCK  CARGO  5-TON  M656  * 

TRUCK  TRACTOR  5-TOn  W/SEMlTRAlLER 

TRUCK  WRECKER  5-TOn  M816 

TRUCK  TANK  FUEL  SERVICING  2500  GaL  M559 

TRUCK  CARGO  8-ton  M520  * 

TRUCK  WRECKER  10-TON  M553 

TRUCK  1  1/4-TOn  Mti81  * 

TRUCK  6X6  5-TOn  M814  * 

TRACTOR  6X6  5-TON  M818  * 

TRACTOR  5-TON  W/12-T0N  SEMI  M818-M127A2  * 

TRACTOR  5-TON  W/25-T0N  SEMI  M818-M172A1  * 

CARRIER  PERSONNEL  APC  Mll3  * 

CARRIER  COMMAND  AND  RECON  Mll4 

CARRIER  COMMAND  POST  M577  * 

CARRIER  MORTAR  4.2-IN  Ml09  * 

CARRIER  MORTaR  81"MM  M125  * 

CARRIER  GUIDED  MlSSLE  TOW  Mll3  * 

CARRIER  CARGO  M548  * 

COMBAT  ENGINEER  VEHICLE  M728 
BRIDGE  AND  Launcher  avlb 
RECOVERY  VEHICLE  LIGHT  M578 
RECOVERY  VEHICLE  MEDIUM  M88 

FORK  LIFT  RT  5-TON  M488  * 

TRACTOR-WRECKER  5-TON  M819  * 

SEMITRAILER  12-TON  (FULL)  M127A2  * 

SEMITRAILER  25-TON  (EMPTY)  M172A1  * 

CONCRETE  IGLOO  In  SASP  * 

radio  vrc-12  Family  * 

RADIO  VRC-46  MTD  IN  1/4-TON  Ml51  *  * 

RADIO  VRC-47  MTD  In  1/4-TOn  Ml51  *  * 

RADIO  VRC-49  MTD  IN  1/4-TOn  Ml51  *  * 

RADIO  VRC-46  MTD  In  1  1/4"T0N  GAmA  GOAT  w561  * 
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306 

307 

308 

310 

311 

312 

313 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 


NUDACC  VULNERABILITY  DATA  DOSE  Bl  AST  TREE  FMP 


RADIO 

VRC-47 

mtd 

IN 

1  1/4-TON  GAMA  GOAT  m561 

* 

RAuIO 

VRC-49 

mtd 

IN 

l  1/4-TON  GAmA  GOAT  m561 

♦ 

RADIO 

VRC-48 

MTD 

In 

1/4-TOn  M151 

* 

* 

RADIO 

VRC-12 

mtd 

in 

CARRIER  APC  Ml 13 

* 

♦ 

RADIO 

VRC-46 

MTD 

in 

CARRIER  APC  Ml 13 

♦ 

♦ 

RADIO 

VRC-47 

MTD 

in 

CARRIER  APC  MH3 

♦ 

* 

RADIO 

VRC-49 

mtd 

in 

CARRIER  APC  m113 

* 

♦ 

radio 

VRC-12 

mtd 

in 

CARRIER  CMd  and  REcOm  Ml 14 

* 

RADIO 

VRC-46 

mtd 

in 

CARRIER  CMd  and  RECOn  M114 

♦ 

RADIO 

VRC-47 

MTD 

in 

CARRIER  CMd  aND  RECOn  Ml 14 

♦ 

RADIO 

VRC-12 

MTD 

in 

CARRIER  CMd  POST  M577 

♦ 

* 

RADIO 

VRC-46 

MTD 

in 

CARRIER  CMd  POST  M577 

♦ 

♦ 

RADIO 

VRC-47 

MTD 

in 

CARRIER  CMd  POST  M577 

* 

♦ 

RADIO 

VRC-49 

MTD 

in 

CARRIER  cMd  POST  M577 

* 

♦ 

RADIO 

VRC-46 

mtd 

in 

recovery  vehicle  lt  m578 

* 

RADIO 

VRC-46 

mtd 

in 

RECOVERY  VEHICLE  MED  Mfl8 

♦ 

radio 

VRC-12 

MTD 

in 

ARMORED  RECOn  VEHICLf  M551 

♦ 

RADIO 

VRC-12 

mtd 

in 

TANK  M60A1 

♦ 

RADIO 

PRC-77 

* 

* 

radio 

VRC-64 

mtd 

IN 

1/4-TOn 

* 

♦ 

* 

RADIO 

GRC-160 

1  mtd 

IN 

1  1/4-Ton 

* 

♦ 

* 

RADIO 

VRC-64 

mtd 

In 

l  1/4-TON  GAmA  GOAT  m561 

♦ 

* 

RADIO 

GRC-160 

'  mtd 

IN 

1  1  1/4-TON  GaMA  GOAT  MR61 

♦ 

* 

RADIO 

VRC-64 

mtd 

in 

5/4-TOn  M715 

* 

* 

* 

RADIO 

GRC-160 

1  mtd 

IN 

i  5/4-TON  M715 

* 

* 

* 

radio 

VRC-64 

mtd 

IN 

CARRIER  APC  Mll3 

* 

* 

* 

RADIO 

GRC-160 

'  mtd 

IN 

1  CARRIER  APC  M113 

* 

♦ 

* 

RADIO 

VRC-64 

MTD 

IN 

CARRIER  CMD  AND  RECOn  Mll4 

* 

* 

RAuIO 

GRC-160 

1  MTd 

IN 

1  CARRIER  CMD  AND  RECON  M114 

♦ 

* 

RADIO 

VRC-64 

MTD 

IN 

CARRIER  cMd  POST  M577 

* 

♦ 

* 

RADIO 

GRC-160 

mtd 

IN 

1  CARRIER  CmD  POST  M577 

* 

♦ 

♦ 

radio 

GRC-160 

MTd 

IN 

i  carrier  mortar  4.2-in  mio6 

♦ 

♦ 

♦ 

RADIO 

VRC-64 

mtd 

In 

bridge  and  launcher  avlb 

* 

♦ 

RADIO 

VRC-64 

mtd 

in 

recovery  vehicle  lt  m578 

♦ 

♦ 

RADIO 

VRC-64 

mtd 

in 

tank  M60A1 

♦ 

♦ 

RADIO 

VRC-64 

mtd 

in 

TANK  M60A2 

* 

* 

RADIO 

VRC-64 

mtd 

in 

ARMORED  RECOn  VEHICLf  M55l 

♦ 

* 

RADIO 

GRC-160 

MTd 

IN 

i  carrier  guided  missle  tow 

* 

♦ 

♦ 

radio 

TT  SET 

grc- 

142 

:  MTD  In  1  l/u-TON  GOaT  M561 

♦ 

RADIO 

TT  SET 

grc- 

142 

♦ 

RADIO 

SET  GRC 

“142 

MTD  IN  5/4-TON  W/S250  SHELTER 

♦ 

* 

radio 

GRC-106 

♦ 

radio 

GRC-106 

i  MTD 

IN 

1  1  1/4-TON  GaMA  GOaT  M561 

♦ 

RADIO 

GRC-106 

»  mtd 

IN 

1  CARRIER  APC  M113 

♦ 

♦ 

radio 

GRC-106 

»  mtd 

IN 

i  CARRIER  CMD  POST  M577 

* 

♦ 

radio 

GRC-106 

»  MTD 

IN 

1  1/4-TON  vehicle 

♦ 

♦ 
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360 
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362 
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nuDacc  vulnerability  data 


nOSE  BlAsT  TREE  EMP 


RAblO  GRC-160  MTD  IN  CARRIER  MORTAR  Rl-MM 
RADIO  TRC-145  MTd  ON  5/4-Ton  M71F5  W/S250  SHELTER 
RADIO  TRC-113  MTD  ON  5/4-Ton  M715  W/S250  SHELTER 
RADIO  TCC-65  MTD  ON  5/4-TOn  m715  W/S250  SHELTER 
RADIO  GRC-103 

RADIO  TTC-23  Mtd  On  2  1/2-TON  W/R280  SHE|  TfR 
RAuIO  TTC-29  MTD  UN  5/4-T0n  M715  W/S250  SHELTER 
TELtTYPE  VSC-3  MTU  IN  CARRIER  CMn  POST  M577 
MULTIPLEXER  TD-660 

MULTIPLEXER  CABLE  COMBINER  TD-204/754 
CONVERTER  CV-1548 

RADIO  VRC-64  MTD  IN  CARRIER  mOrTaR  4.2-In  Ml06 

RADIO  VRC-64  MTD  IN  RECOVERY  VEHICLE  MED  MR0 

RADIO  VRC-64  MTD  IN  CARRIER  gM  ToW  MH3 

RADIO  GRC-160  MTD  IN  CARRIER  Gm  TOW  M113 

RADIO  VRC-46  MTD  IN  5/4-T0n  M7l5 

RADIO  VRC-47  MTD  IN  5/4-TOn  M715 

RADIO  VRC-49  MTD  IN  5/4-TOn  m715 

RADIO  GRC-106  MTD  IN  5/4-TON  M71s 

RADIO  GRC-160  MTD  IN  RECOVERY  VEHICLE  LT  M57fl 

PATCH  CNTR  TSC-76  MTD  IN  5/4-TON  W/S250  SHELTER 

MSG  CNTR  GSQ-80  MTD  ON  2  1/2-TON  W/S280  SHELTER 

TGKAPH  TML  TSC-58  ON  2  1/2-TON  W/S280  SHfLTER 

TElETYPWRITER  SET  TT-4/TG 

TELLTYPWRITER  SET  AN/FGC-25 

OPS  CTR  CMO  AN/MSC-31  ON  2  1/2-ToN  w/S28n 

TEL  CNTRL  OFF  AN/TCC-29  ON  1  1/4-TON  M56l 

TEL  TML  AN/TCC-29  ON  1  1/4-TON  GflMA  GOAT  W/S250 

RADIO  TT  SET  An/UGC-74  ON  1  1/4-TON  GAMA  GOAT 

RADIO  TT  SET  An/UGC-75  ON  1  1/4-TON  GAMA  GOAT 

RADIO  VRC-44  Mtd  In  1/4-T0n  m151 

RADIO  VFC-44  MTD  IN  CARRIER  APC  Mll3 

DIVISION  ARTILLERY  COMPUTER  (TaCfIRE) 

battalion  COMPUTER  (TACFIRE) 

VARIABLE  FORMAT  MESSAGE  ENTRY  DEVICE  (VFmED) 
battery  DISPLAY  UNIT  (BDU> 

DIGITAL  MESSAGE  DEVICE  (DMd) 

BATTERY  COMPUTER  SYSTEM  (BCS) 

an/tvs-4  night  sight 

PPS-5  RADAR  SET 

PPS-15  RADAR  SET 

MPO-49  FWD  AREa  ALTERING  RADAR 

gvs-3  range  finder-laser 

AN/MPQ-4  RADAR  SET  COUNTER  MORTAR 

TPS-25  RADAR  SET 

TOW 


*  * 

♦  * 

♦  * 

* 

* 

* 

*  * 

* 

* 

* 

*  *  * 

*  * 

♦  *  * 

♦  *  * 

* 

* 

* 

* 

♦  * 

* 

* 

♦ 


* 


*  * 

*  * 

*  * 

♦  * 

♦ 
♦ 
♦ 
♦ 

* 
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NUDaCC  VULNERABILITY  data 


DOSE  Bl.AsT  tree  FMP 


602 

DRAGON 

b03 

REDEYE 

604 

lance 

♦ 

605 

tracker  dragon 

701 

PU  617/M  3KW  TmD 

♦ 

702 

PU  bl8/M  5KW  TmD 

703 

PU  bl9/M  10KW  TMD 

7U4 

PU  564A/G  10KW  TMD 

705 

PU  b20/M  5KW  TMD 

70b 

PU  628  3KW  TMD 

707 

PU  625/G  3KW  TmD 

601 

HOwITZER  155MM  SP  M109A1 

♦ 

802 

HOWITZER  155MM  TO*ED  M114 

803 

HOWITZER  8-IN  SP  MHO 

♦ 

604 

tank  combat  m6oai 

805 

TANK  COMBAT  M60A2 

901 

HELICOPTER  OBSERVATION  OH-58 

902 

HELICOPTER  utility  UH-1 

903 

HELICOPTER  ATTACK  AH-lG 

FuRPUR 

27R3A  E33  SL73R1  10/17/79  1?J51:27 
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APPENDIX  B 
RCC  Input  Info 
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note:  times  are  identifies  as  encounter  time  (clock)  or  time  intervals  (intrvd  -  used  to  input  a  period  of  time  after  an  event 
MNEMONIC  subsequent  data  cards  .  „ 
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APPENDIX  C 
4T03  Listings 
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amUCK*KCCF 

1 

2 

3 

4 

5 
b 
7 

6 
9 


lLtll) .4To3 

c  this  program  stores  data  on  ftle  4  and  makes  up  file  ?,  for  rcc 

C  PRINT  OPTION  IS  ALSO  PROVIDED 

DIMENSION  DATA 1 1000  r  20 ) 

DIMENSION  IVLARY(1000,20) 

EQUIVALENCE  (  IVLARYmATA  ) 

COMMON/CARD/  NAmE(2)»  NR.  RR ( 1 7 ) r  NI»  INT(?n) 

DIMENSION  IF0RM(2)»  NaMhLD ( 2 ) 

DATA  IFORM  /6H(iBRKPT»  6h  7  / 

DATA  IN,  I  OUT  ,  ILIS  /  3HIN  .  ^HoUT»  3HLIS  / 


TO  STOP* ) 


1U 

DATA  NtW  ,  IOLD  *  IFND  /  3HNEW  t  3HOLD.  3HEND  / 

11 

call  macset 

12 

10 

WR I TE ( o » 19 ) 

13 

19 

format (*  type  cut  for  output  (  file  3  ),  in  for  input  * , 

14 

♦  * (F ILL  4)',/'  TYPE  Lis  for  ToTaL  LISTING  OF  4  ,  OR  END 

15 

READ (5*29)  IwD 

16 

29 

format (  A3  ) 

17 

IF (  IWU  .EG.  IEND  )  GO  TO  90n0 

16 

IF (  IWD  .EG.  IN  )  GO  TO  5000 

19 

IF (  I WD  .EQ.  ILIS  )  GO  TO  30n0 

20 

IF (  IWu  .NE.  I CUT  )  GO  TO  10 

21 

REWIND  4 

22 

REWIND  3 

23 

READ(4>  data 

24 

90 

WRITE ( G » 129 ) 

25 

129 

FoRmaT(>  TYPE  Name*  NllDACC  COnE  NO....  to  stop,  type  fnd 

26 

WR I TE ( b . 919 ) 

27 

919 

format (»  type  $  for  look  at  last  program-written  line  • * , 

28 

4  *  TYPL  $  ITEM  NUMBERS  FOR  DATA  ON  SPECIFIC  ITEMS*  ) 

29 

100 

CALL  RLADl(S»»l500»S2n00.*2O0o) 

30 

NAMHLDd)  =  NAME(l) 

31 

NAMfiLD  ( 2 )  =  NAME  ( 2 ) 

32 

IF (  NI  .EG.  1  .AND.  NR  .EG.  0  )  GO  TO  110 

33 

103 

WR ItE ( b » 109 ) 

34 

109 

F0RMAT(  *  INPUT  ERROR*  ) 

35 

GO  TO  90 

36 

110 

NDX  =  INT(1) 

37 

IF (  IVLARY(NDX*1)  .GE.  0  )  Go  TO  120 

38 

WR I TE ( b . 1 19 )  NCX 

39 

119 

FORMAT (*  NO  DATA  FOR  tTEM  W/  nUdACC  NUMBER  *»  lb  ) 

40 

GO  TO  100 

41 

120 

continue 

42 

ndd  =  1vLARY<NDX»1>+1 

43 

go  TO  (1990.1001, 1002, 1003»10n4, 1005. 1006. 1007) ,  NDD 

44 

1001 

CONTINUE 

45 

C 

EmP  only 

46 

WRITE (3, 1109)  Name,  IvLaRY(NDx.I) ,  <  DATA(NnX,L),  L=2,3 

47 

1109 

Format (  2A6»,,,»  12,*,*  i5<ix,F6.2)  ) 

48 

GO  TO  100 

49 

1002 

CONTINUE 

50 

C 

TREE  only 

51 

WRITE ( 3 , 1109 )  Name*  IvLaRY(NDX.I) ,  (  nATA(NnX.L) »  L=4,b 

52 

GO  to  loo 

53 

1003 

continue 

54 

C 

emp  and  tree 

55 

WRITE (3, 1109)  Name.  IvLARY(NDX*1) ,  (  DAT  A ( NDX » L ) »  L=2»b 

56 

GO  TO  loo 
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57 

58 

59 

60 

61 

62 

63 

64 

6b 

66 

67 

68 

69 

70 

71 

72 

73 

74 

7b 

76 

77 

78 

79 

60 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

106 

109 

110 

111 

112 

113 


1004  continue 

c  blast  Only 

WRITE (3# 1109)  NAME*  IvLARY<NDX*1) *  (  DATA(NDX,L ),  L=7*9  ) 
GO  TO  100 

1005  continue 

C  EMP  AND  BLAST 

WRITE (3*1109)  NAME*  IvLARY <NDX *  1 ) *  (  DATA (NnX rL) »  L=2 , 3  ), 
♦  (  DATA (NDX, L) *  L  =  7,9  ) 

GO  TO  100 

1006  continue 

C  TREE  and  BLAST 

WRITE ( 3 , 1 109 )  Name*  IvLARY(NDX*1> *  (  DATA (NnX iL) f  L=4 , 9  ) 
GO  TO  loo 

1007  continue 

C  EMP  9  TREE  9  AND  BLAST 

WRITE ( 3  , 1109)  NAME*  IvLARY (NDx  *  1 )  ,  (  DATA (NDX  rL) r  L=2,9  ) 
GO  TO  100 
1990  CONTINUE 
c  PERSONNEL 

WRITE (3 , 1999)  NAME*  I vLARY (NDx *  1 ) 

1999  FORMATt  2A6 ,  **♦,  14  ) 

GO  TO  100 
1500  continue 

c  IF  HERE ,  SAW  $ 

IF  <  NI  .EQ.  0  .AND*  NR  .EG.  0  )  GO  To  1550 
IF <  NI  *LT •  1  .OR.  NR  .NE.  0  )  GO  TO  103 

c  if  here ,  want  data  from  items 

NBACK  =  1 
GO  TO  7000 
1550  CONTINUE 

C  IF  HERE ,  want  TERMINAL  PRINT  OF  LAST  OUTPUT 

GO  TO  <1790*1601, 1602, 1603  *  1604 , 1605  *  1606  *  1607 > ,  nDD 
1601  CONTINUE 

C  EMP  ONLY 


WRlTt(b,1609) 

NAMHLD* 

IVLARY(nDx*1) # 

( 

DATA(NnX.L) * 

L=2,3 

) 

1609 

FORMAK  1X»  2A6,*,», 

1r(1X,F6 

.2) 

1  ) 

GO  TO  100 

1602 

continue 

C 

tree  ONLY 
WRITE (6 » 1609) 

NaMHLDi 

IVLARY (nDx » 1 ) # 

( 

DATA(NnX,L) » 

L=4#fi 

) 

GO  TO  100 

1603 

continue 

C 

emp  and  TREE 
WRlTE(b»1609) 
GO  TO  100 

NAMHLd» 

IVLaRY(nDx»1) t 

< 

DATA(Nr)X,L)  » 

L=2»fi 

) 

1604 

continue 

C 

blast  only 

WRlTE(b»1609) 
GO  TO  100 

namhLd» 

IVLARY(wDx»l) # 

( 

DATA(NnX,L) » 

L=7#9 

) 

1605 

continue 

C 

emp  and  blast 

WRlTE(6»1609) 

namhld» 

IVLARY(nDx»1) » 

( 

DATA(NnX#L) » 

L=2#3 

)  * 

i 

y  (  data(ndx»d »  l  =  7 

.9  ) 

GO  TO  100 

1606 

CONTINUE 

C 

tree  and  blast 

WRITE (b» 1609) 

NaMHLd» 

IVLARY(nDX»1) » 

( 

DATA(NnX#  L) » 

L=4#9 

) 
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114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

12b 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

15b 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 


60  TO  100 
1607  CONTINUE 

C  EmP r  TREE#  AND  BLAST 

WRITE  ( 6 » 1609)  NAMHLCf  I VLARY ( mDx *  1 ) r  (  DATA  (N'nX ,L)  »  L=2,9 
GO  TO  100 
1790  CONTINUE 
c  personnel 

WRlTE(6»1799)  NamhLD*  IVLARY (mDX» 1> 

1799  format (  ix>  2a6,  ***,  14  ) 

GO  TO  loo 
2000  CONTINUE 

WRITE (3*29)  IEND 


EnDfILL  3 
GO  TO  i.0 
3000  REWIND  4 

kead(4)  data 
WR ITE ( o  r 2989) 

2989  FORMAT (*  TO  WRITE  Oh  plLF  7,  TYPE  7.  ELSE  6  *  ) 
IM6  =  o 

REAu ( 5  >2979)  IX 


2979  FORMAT^  11  ) 

IF (  IX  .EQ.  7  )  1Mb  =  7 
WRlTE(lM6»2999) 

2999  FORMAT ( *1PRINT-0UT  OF  DATA  FRnM 
+  *  NUDACC  ’  r  /  r  ’  NUMBER  IVLARY 
DO  3100  I  =  1 »  1000 
IF  <  IVl.aKY(I»1)  .LT.  n  )  GO  TO 
NDD  =  IVLARY ( I  *  1 ) +1 
GO  TO  (3990»3001,30o2,30U3»30n4 

3001  CONTINUE 

C  EMP  ONLY 

WRlTE(lMb»3l09)  Ir  IVlARY(I»1)» 
3109  FORMAT*  I7»  I7»  3X»  1«sF7.2  ) 

GO  TO  5100 

3002  CONTINUE 

c  tree  only 

WRITE ( lM6»  3109)  Ir  IVlARY(I»l)» 
GO  TO  3100 

3003  CONTINUE 

C  EMP  AND  TREE 

WRITE! IM6»3109)  I,  lVlARY(I»l)» 


GO  TO  3100 

3004  CONTINUE 

C  BLAST  UNLY 

WRITE ( 1M6 » 3109 )  Ir  IVlARY(I»1)» 
GO  TO  3100 

3005  CONTINUE 

C  EMP  AND  BLAST 

WRlTE(iMb»3109)  Ir  IV(ARY(Irl)» 
+  (  DATA ( I r L ) r  L  =  7,9  ) 

GO  TO  3100 

3006  CONTINUE 

C  TREE  AND  blast 

WRlTEUMb»3109)  Ir  I  V|  ARY  ( I  r  1 )  r 
GO  TO  3100 

3007  CONTINUE 

C  EMP r  TREE,  AND  BLAST 


FILE  4*r/rlXr?9( »*’ ) r// 

DATA  ’  r  /  r  lx  »  2  <?<•-»)»/) 

3100 

3005»3006r3n07) r  NDD 

(  DATA(IrL),  L=?r3  ) 

(  DATA(I»L)r  L-4r6  ) 

(  DATA(I»L)r  L=2 1 6  ) 

(  DATA ( I rL)  r  L-7 r  9  ) 

(  DATA  < I »L) r  L=?  1 3  )  r 

(  DATA(I»L)r  L=4»9  ) 
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171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

161 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 


WRlTE( IM6.3109)  I,  IVlARY ( I , 1 ) ,  (  DATA<I»L)»  L=2,9  ) 

GO  TO  3100 
3990  CONTINUE 
C  PERSONNEL 

WRITE (I M6, 3999)  I,  IVlARY(I.I) 

3999  FORMAT<  217  ) 

3100  continue 

IF  <  IMG  .EG.  7  )  Call  ERTRaN (6 , I FORM ) 
c  the  PREcEEDING  closes  A  UNIVAC  RRKPT  file,  this  is  MACHINE  DFPENDFnT 
GO  TO  lo 
5000  CONTINUE 

C  THIS  SECTION  makes  FILE  4 

REWIND  4 

5005  WRITE<6,5009> 

5009  FORMATS  FOR  NEW  FILE,  TYPE  NFW.  ELSE ,  OLD  .  TO  STOP.  END*  ) 

Read (5 .29)  iwo 

IF<  IwU  .EQ.  NEW  )  GO  TO  501n 
IF  <  IWU  .NE.  IOld  )  GO  TO  50n5 

Read ( 4 )  data 

GO  TO  5020 

5010  DO  5015  1=1.  loOO 

5015  IVLARY(I.I)  =  "I 
5020  CONTINUE 

WRlTE(b.5019) 

5019  format <*  enter  nudacc  no.,  code  <  IvlaRy  )»  appropriate  data*) 

WRITE (6.919) 

5022  CONTINUE 

Call  RtAD0(5*S5500*S6n00»S600n) 

IF<  NI  .EQ.  2  )  GO  To  5030 
5025  WRITE (6,5029) 

5029  format <•  input  error*  ) 

GO  TO  5020 

5030  NDXl  =  INT(l) 

NDX2  =  INT(2)+2 

GO  TO  (  5990*5990,5101 ,5102, 5l03»5l04»5105»5lfl6, 5107  )»  NDX2 

5101  CONTINUE 
C  EMP  only 

IF<  NR  .NE.  2  )  GO  TO  5025 
IVLaRY<NDX1,1)  =  INT ( 2 ) 

DATA (NDXl ,2)  =  RR ( 1 ) 

DaTa(nDX1,3)  =  RR(2) 

GO  TO  5022 

5102  CONTINUE 

C  TREE  only 

IF<  NR  .NE.  3  )  GO  To  5025 
IVLARY (NDXl , 1 )  =  INT (?) 

DaTa (NDXl , 4 )  =  RR ( 1 ) 

DATa(nDX1,5)  =  RR ( 2 ) 

DaTa ( NUX1 .6)  =  RR ( 3 ) 

GO  TO  5022 

5103  continue 

c  emp  and  tree 

IF (  NR  .NE.  5  )  GO  To  5025 
IVLaRY(NDXI.I)  =  INT (?) 

DaTa(nDX1,2)  =  RR(1) 

DaTa(NDX1»3)  =  RR ( 2 ) 

DaTa(nDX1,4)  =  RR ( 3 ) 
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228 

229 

230 

231 

232 

233 

234 

235 

23b 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

24a 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 


5104 

C 


5105 

C 


5106 

C 


5107 

C 


5990 

C 


5992 

5500 

C 


C 


DaTA(NUX1*5)  = 

DATA  ( NUxi  »  6 )  = 

GO  TO  5022 

continue 
Tree  only 

IF<  NR  .NE.  3  ) 
IVLARY(NDX1»1) 

UaTa ( NDXl »  7 )  = 
DATa(NQX1>8)  = 
DaTa(N0X1»9)  = 

GO  TO  5022 

continue 
EMP  and  blast 
IF (  NR  ,NE.  5  ) 
IVLARY(NDX1»1) 

DATa (NDXl , 2 )  = 

DaTa (NDXl »  3)  = 
DaTa(NDX1»7)  = 
DATa(NuX1»8)  = 
DaTa(NUX1»9)  = 

GO  TO  5022 

continue 
tree  and  blast 

IF(  NR  .NE.  6  ) 
IVLaKY(NDX1»1) 
DATa(NDX1>4)  = 
DaTa(NUX1»5)  = 
0ATa(nUX1»6)  = 
DATa(NDX1»7)  = 

DaT a ( NDXl ,  8 )  = 

DaTa ( NUXI , 9)  = 

GO  TO  5022 

continue 
emp,  TREE*  AND 

IF(  NR  .NE.  8  ) 
ivLary (NDXl , 1 ) 

DATA ( NuXl » 2 )  = 
OaTa(nDx1>3)  = 
DaTa(NUX1»4)  = 

DAT  a ( NUXI » 5 )  = 

DaTa ( NDXl » 6 )  = 

DaTa ( NuXl » 7 )  = 
DaTa(NDX1»8)  = 
DATa(nDX1>9)  = 

GO  TO  5022 

continue 

personnel  or  erase  (  -1  ) 

IVLaRY(NDX1*1)  =  INT (?) 

DO  5992  L  =  2  *  9 
DaTa(NDX1»L)  =  0. 

GO  TO  b022 
CONTINUE 
IF  HERE,  SAV*  S 
IF (  NI  .bQ.  0  .AND 
IF (  NI  .LT.  1  .OR. 

if  here,  want  Data 

NBACK  =  2 


RR(4) 
RR  ( 5 ) 


GO  To  5025 
=  INT(?) 

RR  ( 1 ) 

RR(2) 

RR  ( 3 ) 


GO  To  5025 
=  INT(?) 

RR  ( 1 ) 

RR  ( 2 ) 

RR  ( 3 ) 

RR  (4 ) 

RR  ( 5 ) 


GO  To  5025 
=  INT(?> 

RR  ( 1 ) 

RR  ( 2 ) 

RR  ( 3 ) 

RR  ( 4 ) 

RR  ( 5 ) 

RR  ( 6 ) 


BLAST 

GO  To  5025 
=  INT (?) 

RR  ( 1 ) 

RR  (2 ) 

RR  ( 3 ) 

RR  ( 4 ) 

RR  ( 5 ) 

RR  ( 6 ) 

RR  ( 7 ) 

RR  (8 ) 


NR  .EG.  0 
NR  .NE.  0  > 
FROM  ITEMS 


GO  TO  5520 
GO  TO  5025 
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285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


GO  TO  7000 
5520  CONTINUE 

c  if  here,  want  Last  itfm 

NBACK  =  2 
NI  =  1 

INT(I)  =  NOXl 
GO  TO  7000 

6000  continue 
c  write  new  file  4 

REWIND  4 
WRITE (4)  data 
EnDfILE  4 
GO  TO  10 

7000  continue 

DO  7100  IX  =  1,  Nl 
I  =  INT(IX) 

IF  <  IVLARY ( I r 1 )  .LT.  n  )  GO  TO  7098 
NOD  =  IVLARY*  I  *1)4-1 

GO  TO  (7990,7001 ,7002,70 f»3» 7004,7005 ►  70 06, 7 007) , 

7001  CONTINUE 


C  EMP  only 

WRlTE(U,7109)  I 
7109  format*  I7»  I7» 


7002 

c 


7003 

c 


7004 

C 


7005 

C 


7006 

C 


GO  TO  7100 

continue 
tree  only 

WRlTE(fa,7109) 
go  to  7100 
CONTINUE 
emP  and  tree 
WRlTE(6,7109) 
GO  TO  7100 

continue 

BLAST  Only 
WRITE (6,7109) 
GO  TO  7100 

continue 
emp  and  blast 

WRlTE(6,7109) 

(  DATA ( I , L) , 
GO  TO  7100 
CONTINUE 

tree  and  blast 

WRITE (6 , 7109) 
GO  TO  7100 


I 


I 


I 


I 

L 


I 


'  IVLARY(I,1) 
3X t  15F7.2  ) 


r  IVLARY(I,1) 

>  IVLArY(I,1) 

t  IVLARY(I,1) 

»  IVLArY(I,1) 
=  7,9  ) 

r  IVLARY(T,1) 


,  ( 


,  ( 


,  ( 


,  ( 


,  ( 


,  ( 


7007  continue 

C  EMP,  TREE,  AND  BLAST 

WRITE (6 , 7109)  I,  IVLArY(I,1),  ( 
GO  TO  7100 
7990  CONTINUE 

c  personnel 

WRlTE(&,7999)  I,  IVLArY(I,1) 

7999  format*  217  ) 

GO  TO  7100 

7098  WRlTE(6,7899)  I 

7899  FORMAT* »  NO  DaTa  FOR  ITEM  *,  t6 

7100  continue 


data  *  I »L ) , 

DATA*I »L) , 

data  *  1 »l ) , 

data*i »l) , 

data*i»l) , 

DATA*IfL) , 

data*i»l) , 


L=?  1 3 


L-U'h 


l 


L=7  *  9 


L  =  ?f  3 


1=4*9 


L=?  *  9 


NDD 

) 


) 


) 


) 


)  f 


) 


) 
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342  GO  TO  (  90 t  b02o  )»  NrACK 

343  9000  STOp 

344  .  END 
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AmUCK*kcCF ILE ( 1 ) .MACSeT 


1 

2 

3 

4 
£> 
6 

7 

8 
9 

10 

11 


SUBROUTINE  MACSET 

this  routine  sets  machine  dependent  constants 

COMmON/MACHIN/  isize»  MSIZE.  mNAM 
ISlZE  IS  NUMBER  of  characters  Per  word 
ISIZE  =  6 

MSlZE  Is  MAX  WORDS  ALl OWED  FOr  A  NUMBER 
MSIZE  -  3 

MNAM  IS  MAX  WORDS  ALLOWED  FOR  A  NAME 

MNAM  =  2 

RETURN 

end 
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A|wUCK*riCCFILE  ( 1  > .  KEADl 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


SUBROUTINE  READ1(IUn**»S#S> 

THIS  ROUTINE  READS  A  CARD.  CHfCkS  FOR  $.  END*  Oh  FOF.  AND  CALLS  RD1 
COMmON/CRDBO  /  IR(80) 

DATA  IDOLL*IE.N»ID*IB  /  1H*»  1HF.  lHN*  1HD*  lH  / 
logical  LDOLL 
LDOLL  =  .FALSE. 

READ(IUN»9»END=300>  IR 
FORMATt  80A1  ) 

IF<  IRlD.EQ.lE  .AND.  IR(2).Eft.N  .AND.  IR(3).F0.I0  .AnD. 

$  IR(4).EQ.IB  .And.  IR(5).EQ.lR  )  RETURN3 
IF  (  IR  ( 1 )  .EQ.  IDOLL  )  LDOLL  =  .TRUE. 


12 

13 

14 

15 
lb 


call  rdi 

IF (LDOLL)  RETURN2 
RETURN 

300  RETURN4 
'  END 
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A,v,UCK*HCCFlLE(l ) 

•  KOI 

1 

SUBrOUIINE  RD1 

2 

C 

THIS  ROUTINE  READS  A  nAmE,  THfN  A  STRING  OF  NiiMrERS 

3 

C 

NO.  OF  INTEGERS  PUT  IN  NI,  AND  VALUES  IN  IN 

4 

c 

reals  IN  NR.  and  rr 

b 

c 

the  name  goes  in  iwoRn.  note:  dimension  of  iword  must  be  mnam  -  sft  in  macset 

b 

COMmON/MACHIN/  isize*  MSIZE.  mNAM 

7 

COMMON/  CARD  /  NAME  (2 )  .  NR*  RR(l7),  NI*  INT(2tl) 

a 

COMMON  IS ( 80 ) *  IWORK(S) 

9 

COMMON/ CRD80  /  IR  (80) 

10 

data  ID  * IC  *  ID  *  IE  * iDoLl  /  1H  .  1H.  >  1H. *  1HE  *  lH$  / 

11 

LOGICAL  LEXP.  LREAL,  l.EAO*  LOnE 

12 

NQUlT  =  msize+isize 

lb 

IF (  I R ( 1 )  ,NE.  IDOLL  )  GO  TO  2 

1  4 

10  =  2 

lb 

IF  I  IR  1 2 »  .EQ.  IC  )  10  =  3 

16 

GO  TO  22 

17 

2 

LEAD  =  .TRUE. 

la 

LONE  =  .FALSE. 

19 

N2  =;  ISIZE*MNAM 

20 

c 

look  for  comma 

21 

NC  =  0 

22 

DO  10  I  =  1*  8o 

2b 

NI  =  I 

24 

IF  I  IR  1 1 »  .EO.  IC  >  GO  TO  12 

25 

IF  I  I R ( I »  .EQ.  IB  .AND.  LEAD  )  GO  TO  10 

26 

LEAD  =  .FALSE. 

27 

NC  =  NC+1 

28 

IF (  NC  .LE.  N2  )  GO  TO  8 

29 

LONE  =  .TRUE. 

30 

GO  TO  20 

31 

8 

IS(NC)  =  IR ( I ) 

32 

10 

continue 

33 

12 

continue 

34 

C 

comma  found  left  justify  namf*  and  blank  fill  to  right 

35 

IF  t  N2-NC  )  20,20*15 

36 

15 

NCl  =  NC+1 

37 

DO  16  I  =  NC1*N2 

36 

16 

IS  1 1 »  =  IB 

39 

20 

ENCODE (N2 ,9 .NAME)  (  IG(I).  I=1*N2  ) 

40 

9 

FORMAT (  80A1  ) 

41 

IFlLONE)  GO  TO  7744 

42 

10  =  Nl+1 

43 

22 

NL  =  0 

44 

NC  =  0 

45 

NI  =  0 

46 

NR  =  0 

47 

LEXp  =  .FALSE. 

46 

LREAL  =  .FALSE. 

49 

LEAD  =  .TRUE. 

50 

DO  100  I  =  10,  80 

51 

IF <  IR ( I )  .EQ.  IB  .OR.  IR ( 1 )  .EO.  IC  )  GO  TO  50 

52 

IF I  IRdl  .EQ.  ID  )  lREAL  =  .True. 

53 

IF  I  IR ( I )  .EQ.  IE  )  lEXP  =  .TRUE. 

54 

IF  <  LEAD  )  NO  =  I 

55 

LEAD  =  .FALSE. 

56 

NC  =  NL+1 

31 


57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

7b 

77 

7a 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 


o  o 


eo  to  loo 

50  CONTINUE 

c  a  Blank/comma  was  Reap*  if  leading*  ignore 

IF  C  LEAD  )  GO  TO  98 

•  not  leading.  It  ends  the  current  number 

NOW  WANT  TO  RIGHT  JUSTIFY  CHARACTERS  IN  MSIZE  WORDS 

NWD  =  (  NC-1  J/ISIZE  +  1 

IF C  NWU  ,GT.  MSIZE  )  GO  TO  7734 

N2  =  MSIZE*ISIZE-NC 

IF  <  N2  • GT •  0  )  GO  To  58 

N2  =  0 

GO  TO  65 

58  DO  60  J  =  1*  N2 
60  IS<J)  =  IB 

65  IF C  NC  .EQ.  0  >  GO  To  72 
N1  =  N2+1 
N2  =  N2+NC 
IX  =  0 

DO  70  J  =  Nl*  N2 
IS(J)  =  IR (  NO+IX  ) 

IX  =  IX+1 
70  CONTINUE 

72  ENCODE(N2*9, IWORK)  (  lS<J)»J=i*N2  ) 

C  THAT  SUUNCHED  The  NUMBER  into  Computer  WORDS.  Now  reap  it 
IF (  LRLAL  )  GO  TO  75 
C  IT’S  AN  INTEGER 

NI  =  Ni+1 

DECODE(N2.709,IWORK)  tNT(nI) 

709  FORMATt  118  ) 

C  NOTE.  FIELD  LENGTH  In  ABOVE  FORMAT  =  MSIZE*IsIZE 

GO  TO  95 
75  NR  =  NR+1 

C  IT’S  A  REAL.  SEE  IF  iTts  AN  EXPONENTIAL 

IF (  LEXP  )  GO  TO  78 
DECoDE<N2*759*IwoRK)  RR(nR) 

759  FORMAT(  F18.0  > 

GO  TO  95 

78  DEC0DElN2*789*IW0RK)  RR(NR) 

789  FORn,AT(  E18.0  ) 

95  CONTINUE 

C  WE  have  DECODED  A  number,  now  clear  out  for  nfxt  word 
NL  =  0 
NC  =  0 

LEXp  =  .FALSE. 

LREAL  =  .FALSE* 

LEAD  =  .TRUE. 

GO  TO  100 
98  CONTINUE 

C  MSIZE*ISIZE  LEADING  BlAN*S/COmMaS  INDICATES  NO  MORE  DaTa 

NL  =  NL+1 

IF(  NL  .GE.  NQUij  )  GO  TO  50n0 

100  continue 

5000  continue 
RETURN 

7734  CONTINUE 

C  ERROR  NUMBER  Too  Long 
WRITE (6*  7799) 
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114 

115 

116 
117 
116 

119 

120 
121 
122 

123 

124 

125 


7799  FORMAT (*  NUMBER  TOO  LONG  ON  ThIS  CARD*  ) 

WRITE ( 6 *  7789 )  IR 
7789  FORMAT(  IXf  80A1  ) 

STOP 

7744  CONTINUE 

c  detected  more  than  one  name*s  worth  of  characters  without  a  comma 

c  after  the  leading  blanks  <  if  any  ).  assume  that  this  is  a  one 
c  word  card 

NR  =  o 
NI  =  0 
RETURN 
End 
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A|v|UCK*kCCFlLE(l) 

1 


2 

3 

4 

5 

6 

7 

8 
9 


C 

C 

C 

C 

C 


.READo 

SUBROUTINE  READO(IUn»«»s»*) 

this  ROUTINE  READS  a  card  OF  NUMBERS 

NO.  OF  INTEGERS  PuT  In  NI»  ANn  VALUES  IN  INT 

reals  IN  nr.  and  rr 

keTurni  =  i-  (  continuation  card  )»  return2  =  fnd  card 

RETURN^  =  (3EOF»  RETURN^  =  NON-NUMERAL  I  CAL  CHARACTER 

common/machin/  isize.  MSIZE.  mNaM 

COMMON/  CARD  /  NAME (2 ) »  NR»  RRd7)»  NI»  INT(2n) 

COMMON  IS ( 80 ) .  IWORK (5) 


10 

COMMON/CRD80  /  IR(80) 

11 

DATA  IDOLL.  IEND  /1h$,1HE/ 

12 

DIMENSION  I0K(16) 

13 

DATA  IOK  /  1H0*  1H1.  1H2.  1h3,  1H4»  1h5»  1H6. 

14 

$  1H  .  1H»»  1H.»  1HE .  1H+,  1H-  / 

15 

LOGICAL  LEXP.  LREAL .  LEAD.  LDoLL 

16 

NQUlT  =  MSIZEtlSIZE 

17 

11  =  1 

18 

LDOLL  =  .FALSE. 

19 

REAd(IUn.9.END=6000)  jR 

20 

IF t  IR(1)  .NE.  IDOLL  )  GO  TO  2 

21 

LDOLL  =  .TRUE. 

22 

11  =  2 

23 

IF  t  IR(2)  .EG).  IOK  1 12 )  )  11  =  3 

24 

2 

IF (  IR ( 1 )  .EQ.  IEND  )  RETURNS 

25 

9 

FORMAT (  80A1  ) 

26 

NL  =  0 

27 

NC  =  0 

28 

NI  =  0 

29 

NR  =  0 

30 

LEXp  r  .FALSE. 

31 

LREAL  =  .FALSE. 

32 

LEAD  =  .TRUE. 

33 

DO  100  I  =  Il»  80 

34 

DO  10  J  =  1.  16 

35 

10 

IF  (  IR(I)  .EG).  IOK(J)  )  GO  To  15 

36 

C 

IF  HERE.  IT’S  A  NON-NuMERICAL  CHARACTER.  STOP 

37 

STOP 

38 

15 

continue 

39 

IF<  IR(I)  .EQ.  IOK (11)  .OR.  Ir(I)  .EQ.  I0K(12 

40 

IF  <  IR(I)  .EQ.  IOK  d3 )  )  LREaL  =  .TRUE. 

41 

IF  (  IR(I)  .EQ.  IOK  d4 )  )  LEXP  =  .TRUE. 

42 

IF<  LEAD  )  NO  =  I 

43 

LEAD  =  .FALSE. 

44 

NC  =  NC+1 

45 

GO  TO  100 

46 

50 

continue 

47 

C 

a  blank/comma  was  REAn.  if  lfading,  ignore 

48 

IF  C  LEAD  )  GO  TO  98 

49 

C 

not  leading,  it  fnds  the  current  number 

50 

C 

now  want  to  right  justify  characters  in  msize 

51 

NWD  =  (  NC-1  )/ISIZe  +  1 

52 

IF  c  NWD  .GT.  MSIZE  )  GO  TO  7734 

53 

N2  =  MSIZE*ISIZE-NC 

54 

IF*  N2  .GT.  0  )  GO  To  58 

55 

N2  =  0 

56 

GO  TO  65 

lH7»  1HP .  1H9 . 


)  GO  TO  50 


WORDS 
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57 

56 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

76 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 


58  DO  60  J  =  lr  N2 
60  IS(J)  =  IOKC11) 

65  IF<  NC  .EG.  0  )  GO  To  72 
N 1  _  |ski+l 
N2  =  N2+NC 
IX  :  0 

DO  70  J  =  Nlr  N2 
ISCJ)  =  IR (  NO  +  IX  ) 

IX  =  IX+1 
70  CONTINUE 

72  ENC0DE(N2f9, IWOrk)  (  tS(j)»J=i»n2  ) 

c  that  suunched  The  numrer  into  computer  words,  now  read  it 

IF  C  LRLAL  )  GO  TO  75 
C  IT’S  AN  INTEGER 

NI  =  N 1  + 1 

DECODE (N2> 709 > IWORK)  yNTCNl ) 

709  F0RMAT(  118  ) 

C  NOTE.  field  length  in  above  FORMAT  =  MSIZE*IfI?F 
GO  TO  95 
75  NR  -  NR+1 

C  IT’S  A  REAL.  SEE  IF  lT*S  AN  EXPONENTIAL 

IF  C  LEAP  )  GO  TO  78 
DECODE (N2  r  759  f I WORK )  RR ( nR ) 

759  FORMAT*  F18.0  ) 

GO  TO  95 

78  DEC0DE<N2>789, IWORK)  RR(nR) 

789  F0RMAT<  E18.0  ) 

95  CONTINUE 

c  we  have  decoded  a  numrEr.  now  clear  out  for  nfxt  word 
NL  -  0 
NC  =  0 

LEXp  =  .FALSE. 

LREaL  =  .FALSE# 

LEAD  z  .true. 

GO  TO  100 
98  CONTINUE 

C  MSlZE*iSIZE  LEADING  BLANKS/COmMaS  INDICATES  NO  MORE  DaTa 

NL  =  NL+1 

IF  C  NL  .GE.  NQUit  )  GO  TO  50n0 
100  CONTINUE 
5000  CONTINUE 

IF l LDOLL )  RETURN2 
RETURN 

6000  RETURN^ 

7734  continue 

c  error  number  Too  long 

WR I TE l 6  r  7799 ) 

7799  FORMAT l*  NUMBER  TOO  LONG  ON  ThIS  CARD*  ) 

WR I TE ( o  f  7789 )  IR 
7789  FORMATC  lXr  80A1  ) 

STOP 

end 
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DISTRIBUTION  LIST 


No.. of  No.  of 

Copies  Organization  Copies  Organizati  _-n 


12  Commander 

Defense  Technical  Info  Center 
ATTN:  DDC-DDA 
Cameron  Station 
Alexandria,  VA  22314 

1  Office  of  the  Undersecretary 
of  Defense  for  R§E 
Director  for  Land  Warfare 
ATTN:  COL  Dixon 
Washington,  DC  20301 

1  Director 

Defense  Advanced  Research 
Project  Agency 
1400  Wilson  Boulevard 
Arlington,  VA  22209 

1  Director 

Defense  Intelligency  Agency 
ATTN:  DI-7B-3 
Washington,  DC  20301 

1  Director 

Institute  for  Defense  Analysis 
400  Army  Navy  Drive 
Arlington,  VA  22202 

5  Director 

Defense  Nuclear  Agency 
ATTN:  STSP  (COL  Deverill) 

STSS  (COL  Schorr) 

VLWS  (Mr.  Rubenstein) 
NSSO  (LTC  Richards) 

OANS  (COL  Linton) 
Washington,  DC  20305 

1  Commander 

Field  Command 
Defense  Nuclear  Agency 
ATTN:  FCPO  (COL  Hemler) 
Kirtland  AFB,  NM  87115 


1  Office  of  the  Undersecretary 
of  the  Army  (OR) 

ATTN:  SAUS-OR  (Mr.  Lester) 
Room  2F.621,  The  Pentagon 
Washington,  DC  20510 

1  HQDA  (DAMA-AOA-M) 

Washington.  DC  20310 

1  HQDA  (DAMO-SSN) 

Washington,  DC  20310 

1  Director 

US  Army  Engineer  Waterway 
Experiment  Station 
P.O.  Box  631 
Vicksburg,  MS  39181 

1  Commander 

US  Army  Materiel  Development 
§  Readiness  Command 
ATTN:  DRCDMD-ST 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

1  Commander 

US  Army  Materiel  Development 
$  Readiness  Command 
ATTN:  DRCDA-S 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

1  Commander 

US  Army  Materiel  Development 
§  Readiness  Command 
ATTN:  DRCBSI  (COL  McDonnell) 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 
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DISTRIBUTION  LIST 


No.  of  No.  of 


Copies  Organization  Cop: 

8  Commander  2 

US  Army  Armament  Research 
§  Development  Command 
ATTN:  DRDAR-TSS  (2  c.ysj 
DRDAR-PMA 
DRDAR-AC 
DRDAR-SE 

DRDAR-SEA  (2  cys)  i 

DRDAR-LCN-F 
Dover,  NJ  07801 

1  Director 

US  Army  ARRADCOM 
Benet  Weapons  Laboratory 
ATTN:  DRDAR-LCB-TL 
Watervliet,  NY  12189  j 

2  Commander 

US  Army  Armament  Materiel 
Readiness  Command 
ATTN :  DRSAR-RDF 

DRSAR- LEP-L  (Tech  Lib)  2 
Rock  Island,  IL  61299 

1  Commander 

US  Army  Watervliet  Arsenal 
ATTN:  SARWV-RDD-AT 
Watervliet,  NY  12189 

1  Commander  6 

US  Army  Aviation  Research 
5  Development  Command 
ATTN:  DRSAV-E 
P.0.  Box  209 
St.  Louis,  MO  63166 

1  Commander 

US  Army  Air  Mobility  Research 
§  Development  Laboratory  3 
Ames  Research  Center 
Moffett  Field,  CA  94035 


s_  Organization 

Commander 

Applied  Technology  Laboratory 
US  Army  Research  §  Technology 
Laboratories  (AVRADCOM) 

ATTN:  DAVDL-EU-SY-RPV 
Fort  Eustis,  VA  23604 

Commander 

L'3'  Army  Troop  Support  and 
Aviation  Materiel  Readiness 
Command 

ATTN:  DRSTE-G 

4300  Goodfellow  Boulevard 

St.  Louis,  MO  63166 

Commander 

US  Army  Communications  Research 
5  Development  Command 
ATTN:  DRDCO-PPS-SA 
Fort  Monmouth,  NJ  07703 

Commander 

US  Army  Electronics  Research 
§  Development  Command 
Technical  Support  Activity 
ATTN:  DELSD-L 
DELEW-E 

Fort  Monmouth,  NJ  07703 
Commander 

US  Army  Harry  Diamond  Laboratory 
ATTN:  DELHD-RBA 

Mr.  Rosado;  Mr.  F.  Wimenitz 
Mr.  Sweasy;  Mr.  Michalowicz 
Mr.  Wicklund;  Mr.  Vault 
2800  Powder  Mill  Road 
Adelphi,  MD  20783 

Commander 

Combat  Surveillance  and  Target 
Acquisition  Lab 
ATTN:  DELCS-0,  K.  Donaldson 
DELCS-R,  E.  Frost 
DELCS-S,  J.  Silverstein 
Fort  Monmouth,  NJ  07703 
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DISTRIBUTION  LIST 


No.  of 
Copies 


Organization 


No.  of 
Copies 


Organization 


1 


Director  .1 

Electronic  Warfare  Laboratory 
ATTN:  DELEW- V,  Mr.  Miller 
Fort  Monmouth,  NJ  07703 


President 

US  Army  Airborne,  Electronics 
&  Special  Warfare  5oard 
Fort  Bragg,  NC  28307 


1  Director 

Night  Visiion  5  Electro 
Optics  Lab 

ATTN:  DELNV-L,  Mr.  D'Argostino 
Fort  Monmouth,  NJ  07703 

5  Commander 

US  Army  Missile  Command 
ATTN:  DRSMI-R 
DRSMI-D 
DRSMI-Y 
DRSMI-T 
DRSMI-YDL 

Redstone  Arsenal,  AL  35809 

1  Commandant 

US  Army  Missile  and  Muns  Cmd 
ATTN:  ATSK-CD-CS,  James  Lee 
Redstone  Arsenal,  AL  35809 

2  Commander 

US  Army  Mobility  Equipment 
Research  &  Development  Cmd 
ATTN:  DRDME-WC 

DRDME-RI ,  Dr.  Oscar 
Fort  Belvoir,  VA  22060 

1  Commander 

US  Army  Natick  Research 
5  Development  Command 
ATTN:  DRXRE,  Dr.D.  Sieling 
Natick,  MA  07162 

3  Commander 

US  Army  Tank  Automotive 

Research  5  Development  Cmd 
ATTN:  DRDTA-R 

DRDTA-RHM 

DRDTA-UL 

Warren,  MI  48090 


1  President 

US  Army  Armor  §  Engineering 
Board 

Fort  Knox,  KY  40121 

1  President 

US  Army  Artillery  Board 
Fort  Sill,  OK  73504 

1  Commander 

US  Army  Infantry  Board 
Fort  Benning,  GA  31905 

1  Project  Manager,  ART ADS 

US  Army  Electronics  Research 
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ATTN:  IAX-OT-P,  MAJ  Zamory 

Room  2201,  Bldg  A 
Arlington  Hall  Station 
Arlington,  VA  22212  ■ 

1  Commander 

US  Army  John  F.  Kennedy  Ctr 
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Langley  AFB,  VA  23365 
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1  Sandia  Laboratories 
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USER  EVALUATION  OF  REPORT 


Please  take  a  few  minutes  to  answer  the  questions  below;  tear  out 
this  sheet  and  return  it  to  Director,  US  Army  Ballistic  Research 
Laboratory,  ARRADCOM,  ATTN:  DRDAR-TSB,  Aberdeen  Proving  Ground, 
Maryland  21005.  Your  comments  will  provide  us  with  information 
for  improving  future  reports . 

1 .  BRL  Report  Number _ 

2.  Does  this  report  satisfy  a  need?  (Comment  on  purpose,  related 
project,  or  other  area  of  interest  for  which  report  will  be  used.) 


3.  How,  specifically,  is  the  report  being  used?  (Information 
source,  design  data  or  procedure,  management  procedure,  source  of 
ideas,  etc.) 


4.  Has  the  information  in  this  report  led  to  any  quantitative 
savings  as  far  as  man-hours/contract  dollars  saved,  operating  costs 
avoided,  efficiencies  achieved,  etc.?  If  so,  please  elaborate. 


5.  General  Comments  (Indicate  what  you  think  should  be  changed  to 
make  this  report  and  future  reports  of  this  type  more  responsive 
to  your  needs,  more  usable,  improve  readability,  etc.) 


6.  If  you  would  like  to  be  contacted  by  the  personnel  who  prepared 
this  report  to  raise  specific  questions  or  discuss  the  topic, 
please  fill  in  the  following  information. 

Name: 


Telephone  Number: 
Organization  Address: 


